home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 12 / Amiga Format AFCD12 (Apr 1997, Issue 96).iso / -screenplay- / utilities / spyvsspy_hdinstall / install / spy_vs_spy.install < prev    next >
Text File  |  1997-02-08  |  6KB  |  199 lines
  1. ; $VER: AFind.install 1.61 (17.12.96)
  2. ; Install script for AFind (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2) ;Nur für den Test.
  6. (SET #ApplicationName "Spy_vs_Spy")
  7. (SET #ApplicationDir "sys:")
  8. ;(SET #ApplicationDir "ram:") ;Nur für den Test.
  9. (SET #ArchiveDir "df0:")
  10. (SET #ArchiveDir "/") ;Wenn das Skript auf der OriginalDisk in einem
  11.                       ;Install ordner liegt.
  12. ;=============================================================================
  13. ; German strings
  14.  
  15. (IF (= @language "deutsch")
  16. (
  17. (SET default_lang 2)
  18.  
  19. (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  20. (SET #bad-installer
  21. (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  22.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  23.      "Bitte überprüfen Sie Ihre Konfiguration!\n"
  24.      "Wenn Sie fortfahren, wird eine Vollinstallation vorgenommen, das heißt\n"
  25.      "es werden alle Kataloge,Anleitungen und die OS2.0+ Version installiert.\n"
  26.      "%s ist auch dann voll einsatzfähig!"
  27. ))
  28.  
  29. (SET #App-InstallMsg
  30. (CAT "\n\%s Installationsskript.\n"
  31.         "Diese Skript installiert %s auf Ihrer Amiga Festplatte.\n\n"
  32.         "%s-Install © 1997 Guido Mersmann\n"
  33.         "All Rechte reserviert."
  34. ))
  35.  
  36. (SET #App-Where
  37. (CAT "Wo möchten Sie %s installieren ?\n"
  38.         "(Ein Verzeichnis wird angelegt)"
  39. ))
  40. (SET #App-WhereSource
  41. (CAT "Wo befindet sich 'Spy Vs Spy'!"
  42. ))
  43.  
  44. (SET #App-Exit "\n%s installiert !!")
  45.  
  46.  
  47. ))
  48.  
  49. ;=============================================================================
  50. ; English strings
  51.  
  52. (IF (<> @language "deutsch")
  53. (
  54. (SET default_lang 4)
  55.  
  56. (SET #bad-kick "You must have at least Workbench 2.0+")
  57. (SET #bad-installer
  58. (CAT "You have an old version of the program 'Installer' "
  59.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  60.      "Please check your configuration!\n\n"
  61.      "If you proceed the whole archive will be installed.\n"
  62.      "%s will work without any restrictions!"
  63. ))
  64.  
  65. (SET #App-InstallMsg
  66. (CAT "\n\%s installation script.\n"
  67.         "This script installs %s on your Amiga-Harddisk.\n\n"
  68.         "%s-Install © 1997 Guido Mersmann\n"
  69.         "All rights reserved."
  70. ))
  71.  
  72. (SET #App-Where
  73. (CAT "Where would you like to install %s ?\n"
  74.         "(A drawer will be created)"
  75. ))
  76. (SET #App-WhereSource
  77. (CAT "Where is your 'Spy Vs Spy'!\n"
  78. ))
  79.  
  80.  
  81. (SET #App-Exit "\n%s installed !!")
  82.  
  83.  
  84. ))
  85. ;----------------------------------------------------------------------------
  86. ;----------------------------------------------------------------------------
  87. ;    Copy_File (Name) (Newname)
  88. ;----------------------------------------------------------------------------
  89. ;----------------------------------------------------------------------------
  90. (PROCEDURE P_CopyFile #Dummy #NewName
  91.  
  92. (if (<> (exists (TACKON #ArchiveDir #Dummy) (noreq)) 0) 
  93. (
  94.                    (COPYFILES
  95.     (SOURCE (TACKON #ArchiveDir #Dummy))
  96.     (DEST #ApplicationDir)
  97.     (NEWNAME #NewName)
  98.     (HELP @copyfiles-help)
  99.     (OPTIONAL <force>)
  100.     (ALL)
  101.     (INFOS)
  102.                    )
  103. )
  104. ) ;If
  105. ) ;PROCEDURE
  106.  
  107. ;----------------------------------------------------------------------------
  108. ;----------------------------------------------------------------------------
  109. ;    GetApplicationDir
  110. ;----------------------------------------------------------------------------
  111. ;----------------------------------------------------------------------------
  112. (PROCEDURE P_GetApplicationDir #Dummy
  113.  
  114. (SET #ApplicationDir
  115.         (TACKON
  116.                 (ASKDIR
  117.                         (PROMPT (#App-Where #ApplicationName))
  118.                         (HELP @askdir-help)
  119.                         (default #Dummy)
  120.                 )
  121.                 #ApplicationName
  122.         )
  123. )
  124. ) ;PROCEDURE
  125. ;----------------------------------------------------------------------------
  126. ;----------------------------------------------------------------------------
  127. ;    P_CopyArchiveIcon
  128. ;----------------------------------------------------------------------------
  129. ;----------------------------------------------------------------------------
  130. (PROCEDURE P_CopyArchiveIcon
  131.                    (COPYFILES
  132.     (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info"))
  133.     (DEST (TACKON #ApplicationDir "/"))
  134.     (HELP @copyfiles-help)
  135.                    )
  136. ) ;PROCEDURE
  137. ;----------------------------------------------------------------------------
  138. ;----------------------------------------------------------------------------
  139. ;    P_Rename
  140. ;----------------------------------------------------------------------------
  141. ;----------------------------------------------------------------------------
  142. (PROCEDURE P_Rename #Dummy #Dummy2
  143. (if (= (exists (TACKON #ApplicationDir #Dummy)) 2)
  144.         (rename (TACKON #ApplicationDir #Dummy) (TACKON #ApplicationDir #Dummy2))
  145. )
  146. ) ;PROCEDURE
  147. ;----------------------------------------------------------------------------
  148. ;----------------------------------------------------------------------------
  149. ;    GetSourceDir
  150. ;----------------------------------------------------------------------------
  151. ;----------------------------------------------------------------------------
  152. (PROCEDURE P_GetSourceDir #Dummy
  153.  
  154. (SET #ArchiveDir
  155.                 (ASKDIR
  156.                         (PROMPT (#App-WhereSource #ApplicationName))
  157.                         (HELP @askdir-help)
  158.                         (default #Dummy)
  159.                 )
  160. )
  161. ) ;PROCEDURE
  162. ;----------------------------------------------------------------------------
  163. ;----------------------------------------------------------------------------
  164. ;    MAIN
  165. ;----------------------------------------------------------------------------
  166. ;----------------------------------------------------------------------------
  167. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  168. (welcome)
  169.  
  170.  (SET #ApplicationDir (P_GetApplicationDir #ApplicationDir))
  171. ; (SET #ArchiveDir (P_GetSourceDir #ArchiveDir))
  172.  
  173.  (MAKEDIR #ApplicationDir)
  174.  (SET #ArchiveDir (Tackon #ArchiveDir "d/"))
  175.  
  176.  (P_CopyFile "spy1prg" "0")
  177. (COMPLETE 50)
  178.  (P_CopyFile "PICT.PI1" "1")
  179. (COMPLETE 60)
  180.  (P_CopyFile "PICU.PI1" "2")
  181. (COMPLETE 70)
  182.  (P_CopyFile "PICZ.PI1" "3")
  183. (COMPLETE 80)
  184.  (P_CopyFile "PICS.PI1" "4")
  185. (COMPLETE 90)
  186.  (P_CopyFile "PICY.PI1" "5")
  187. (SET #ArchiveDir "")
  188.  (P_CopyFile "Data" "Spy_vs_Spy")
  189.  (P_CopyFile "Spy_vs_Spyinfo" "Spy_vs_Spy.info")
  190.  
  191.  
  192. ; (SET #Dummy
  193. ; (CAT "SpyConvert " (Tackon #ApplicationDir "Spy_Vs_Spy")
  194. ; ))
  195. ; (RUN #Dummy)
  196. (COMPLETE 100)
  197.  
  198. ;(exit #App-exit)
  199.